home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Win2K Explorer Remote Computers 1.xpl < prev    next >
Text File  |  2002-10-29  |  2KB  |  69 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="2"
  4. "UIPATH 1"="Appearance\Explorer\Settings"
  5. "UIPATH 2"="Network\Explorer"
  6. "UIPATH 3"="System\Scheduled Tasks\Visibility"
  7. "NAME"="Remote Computers Special Folders"
  8. "LANGUAGE"="VBScript"
  9. "OSVERSION"="0001011"
  10. "TEXT 1"="Show "Printers" when viewing Network Computers"
  11. "TEXT 2"="Show "Scheduled Tasks" when viewing Network Computers"
  12. "DESCRIPTION 1"="If you view a remote computer using Explorer (e.g. from Network Neighborhood), you will see the shares configured on that computer plus two special items "Printers" and "Scheduled Tasks"."
  13. "DESCRIPTION 2"="Basically, this is a good idea but there is also a little delay until Windows has queried the other computer for the status of these special folders."
  14. "DESCRIPTION 3"="If you do not need these special folders, you can simply turn them off and thus having the display appear quickly because Windows does not need to query the other computer for those special folders."
  15. "VERSION"="1.02"
  16. "AUTHOR"="Xteq Systems"
  17. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved."
  18. "CONTACTURL"="http://www.xteq.com/"
  19. "COMMENT 1"=" "
  20.  
  21.  
  22. sP1="HKLM\Software\Microsoft\Windows\CurrentVersion\Explorer\RemoteComputer\NameSpace\{2227A280-3AEA-1069-A2DE-08002B30309D}"
  23. sP1_Name="HKCR\CLSID\{2227A280-3AEA-1069-A2DE-08002B30309D}\@"
  24.  
  25. sP2="HKLM\Software\Microsoft\Windows\CurrentVersion\Explorer\RemoteComputer\NameSpace\{D6277990-4C6A-11CF-8D87-00AA0060F5BF}"
  26. sP2_Name="HKCR\CLSID\{D6277990-4C6A-11CF-8D87-00AA0060F5BF}\@"
  27.  
  28. SUB Plugin_Initialize
  29. ' s=RegReadValue(sP1)
  30. ' debugmsg s
  31.  
  32.  if RegPathExists(sP1) then
  33.     Call SetUIElement(1,true)
  34.  end if
  35.  
  36.  if RegPathExists(sP2) then
  37.     Call SetUIElement(2,true)
  38.  end if
  39. END SUB
  40.  
  41. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  42.  if GetUIElement(1)=true then
  43.     if RegPathExists(sP1)=false then
  44.        sName=RegReadValue(sP1_Name)
  45.        Call RegWriteValue(sP1 & "\@",sName,1)
  46.     end if
  47.  else
  48.     If RegPathExists(sP1) then 
  49.        Call RegDeletePath(sP1)
  50.     end if
  51.  end if
  52.  
  53.  if GetUIElement(2)=true then
  54.     if RegPathExists(sP2)=false then
  55.        sName=RegReadValue(sP2_Name)
  56.        Call RegWriteValue(sP2 & "\@",sName,1)
  57.     end if
  58.  else
  59.     If RegPathExists(sP2) then 
  60.        Call RegDeletePath(sP2)
  61.     end if
  62.  end if
  63.  
  64.  
  65. END SUB
  66.  
  67. SUB Plugin_Terminate
  68. END SUB
  69.